3.19 \(\int \csc (e+f x) \sqrt {a+a \sin (e+f x)} \sqrt {c-c \sin (e+f x)} \, dx\)

Optimal. Leaf size=46 \[ \frac {\sec (e+f x) \sqrt {a \sin (e+f x)+a} \sqrt {c-c \sin (e+f x)} \log (\sin (e+f x))}{f} \]

[Out]

ln(sin(f*x+e))*sec(f*x+e)*(a+a*sin(f*x+e))^(1/2)*(c-c*sin(f*x+e))^(1/2)/f

________________________________________________________________________________________

Rubi [A]  time = 0.17, antiderivative size = 46, normalized size of antiderivative = 1.00, number of steps used = 2, number of rules used = 2, integrand size = 36, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.056, Rules used = {2948, 3475} \[ \frac {\sec (e+f x) \sqrt {a \sin (e+f x)+a} \sqrt {c-c \sin (e+f x)} \log (\sin (e+f x))}{f} \]

Antiderivative was successfully verified.

[In]

Int[Csc[e + f*x]*Sqrt[a + a*Sin[e + f*x]]*Sqrt[c - c*Sin[e + f*x]],x]

[Out]

(Log[Sin[e + f*x]]*Sec[e + f*x]*Sqrt[a + a*Sin[e + f*x]]*Sqrt[c - c*Sin[e + f*x]])/f

Rule 2948

Int[(Sqrt[(a_) + (b_.)*sin[(e_.) + (f_.)*(x_)]]*Sqrt[(c_) + (d_.)*sin[(e_.) + (f_.)*(x_)]])/sin[(e_.) + (f_.)*
(x_)], x_Symbol] :> Dist[(Sqrt[a + b*Sin[e + f*x]]*Sqrt[c + d*Sin[e + f*x]])/Cos[e + f*x], Int[Cot[e + f*x], x
], x] /; FreeQ[{a, b, c, d, e, f}, x] && NeQ[b*c - a*d, 0] && EqQ[a^2 - b^2, 0] && EqQ[c^2 - d^2, 0]

Rule 3475

Int[tan[(c_.) + (d_.)*(x_)], x_Symbol] :> -Simp[Log[RemoveContent[Cos[c + d*x], x]]/d, x] /; FreeQ[{c, d}, x]

Rubi steps

\begin {align*} \int \csc (e+f x) \sqrt {a+a \sin (e+f x)} \sqrt {c-c \sin (e+f x)} \, dx &=\left (\sec (e+f x) \sqrt {a+a \sin (e+f x)} \sqrt {c-c \sin (e+f x)}\right ) \int \cot (e+f x) \, dx\\ &=\frac {\log (\sin (e+f x)) \sec (e+f x) \sqrt {a+a \sin (e+f x)} \sqrt {c-c \sin (e+f x)}}{f}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]  time = 0.11, size = 62, normalized size = 1.35 \[ \frac {\sec (e+f x) \sqrt {a (\sin (e+f x)+1)} \sqrt {c-c \sin (e+f x)} \left (\log \left (\sin \left (\frac {1}{2} (e+f x)\right )\right )+\log \left (\cos \left (\frac {1}{2} (e+f x)\right )\right )\right )}{f} \]

Antiderivative was successfully verified.

[In]

Integrate[Csc[e + f*x]*Sqrt[a + a*Sin[e + f*x]]*Sqrt[c - c*Sin[e + f*x]],x]

[Out]

((Log[Cos[(e + f*x)/2]] + Log[Sin[(e + f*x)/2]])*Sec[e + f*x]*Sqrt[a*(1 + Sin[e + f*x])]*Sqrt[c - c*Sin[e + f*
x]])/f

________________________________________________________________________________________

fricas [A]  time = 0.64, size = 202, normalized size = 4.39 \[ \left [\frac {\sqrt {a c} \log \left (\frac {4 \, {\left (256 \, a c \cos \left (f x + e\right )^{5} - 512 \, a c \cos \left (f x + e\right )^{3} + 337 \, a c \cos \left (f x + e\right ) + {\left (256 \, \cos \left (f x + e\right )^{4} - 512 \, \cos \left (f x + e\right )^{2} + 175\right )} \sqrt {a c} \sqrt {a \sin \left (f x + e\right ) + a} \sqrt {-c \sin \left (f x + e\right ) + c}\right )}}{\cos \left (f x + e\right )^{3} - \cos \left (f x + e\right )}\right )}{2 \, f}, -\frac {\sqrt {-a c} \arctan \left (\frac {\sqrt {-a c} {\left (16 \, \cos \left (f x + e\right )^{2} - 7\right )} \sqrt {a \sin \left (f x + e\right ) + a} \sqrt {-c \sin \left (f x + e\right ) + c}}{16 \, a c \cos \left (f x + e\right )^{3} - 25 \, a c \cos \left (f x + e\right )}\right )}{f}\right ] \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+a*sin(f*x+e))^(1/2)*(c-c*sin(f*x+e))^(1/2)/sin(f*x+e),x, algorithm="fricas")

[Out]

[1/2*sqrt(a*c)*log(4*(256*a*c*cos(f*x + e)^5 - 512*a*c*cos(f*x + e)^3 + 337*a*c*cos(f*x + e) + (256*cos(f*x +
e)^4 - 512*cos(f*x + e)^2 + 175)*sqrt(a*c)*sqrt(a*sin(f*x + e) + a)*sqrt(-c*sin(f*x + e) + c))/(cos(f*x + e)^3
- cos(f*x + e)))/f, -sqrt(-a*c)*arctan(sqrt(-a*c)*(16*cos(f*x + e)^2 - 7)*sqrt(a*sin(f*x + e) + a)*sqrt(-c*si
n(f*x + e) + c)/(16*a*c*cos(f*x + e)^3 - 25*a*c*cos(f*x + e)))/f]

________________________________________________________________________________________

giac [F(-2)]  time = 0.00, size = 0, normalized size = 0.00 \[ \text {Exception raised: NotImplementedError} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+a*sin(f*x+e))^(1/2)*(c-c*sin(f*x+e))^(1/2)/sin(f*x+e),x, algorithm="giac")

[Out]

Exception raised: NotImplementedError >> Unable to parse Giac output: Unable to check sign: (4*pi/x/2)>(-4*pi/
x/2)Unable to check sign: (4*pi/x/2)>(-4*pi/x/2)Unable to check sign: (4*pi/x/2)>(-4*pi/x/2)Unable to check si
gn: (4*pi/x/2)>(-4*pi/x/2)Unable to check sign: (4*pi/x/2)>(-4*pi/x/2)Unable to check sign: (4*pi/x/2)>(-4*pi/
x/2)sqrt(2*a)*sqrt(2*c)*4*(1/4*sign(sin(1/2*(f*x+exp(1))-1/4*pi))*sign(cos(1/2*(f*x+exp(1))-1/4*pi))*ln(abs((-
cos(1/4*(2*f*x+2*exp(1)-pi))+1)/(cos(1/4*(2*f*x+2*exp(1)-pi))+1)+1))-1/8*sign(sin(1/2*(f*x+exp(1))-1/4*pi))*si
gn(cos(1/2*(f*x+exp(1))-1/4*pi))*ln(abs(((-cos(1/4*(2*f*x+2*exp(1)-pi))+1)/(cos(1/4*(2*f*x+2*exp(1)-pi))+1))^2
-6*(-cos(1/4*(2*f*x+2*exp(1)-pi))+1)/(cos(1/4*(2*f*x+2*exp(1)-pi))+1)+1)))/f

________________________________________________________________________________________

maple [A]  time = 0.66, size = 74, normalized size = 1.61 \[ -\frac {\left (\ln \left (\frac {2}{\cos \left (f x +e \right )+1}\right )-\ln \left (-\frac {-1+\cos \left (f x +e \right )}{\sin \left (f x +e \right )}\right )\right ) \sqrt {-c \left (\sin \left (f x +e \right )-1\right )}\, \sqrt {a \left (1+\sin \left (f x +e \right )\right )}}{f \cos \left (f x +e \right )} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((a+a*sin(f*x+e))^(1/2)*(c-c*sin(f*x+e))^(1/2)/sin(f*x+e),x)

[Out]

-1/f*(ln(2/(cos(f*x+e)+1))-ln(-(-1+cos(f*x+e))/sin(f*x+e)))*(-c*(sin(f*x+e)-1))^(1/2)*(a*(1+sin(f*x+e)))^(1/2)
/cos(f*x+e)

________________________________________________________________________________________

maxima [F]  time = 0.00, size = 0, normalized size = 0.00 \[ \int \frac {\sqrt {a \sin \left (f x + e\right ) + a} \sqrt {-c \sin \left (f x + e\right ) + c}}{\sin \left (f x + e\right )}\,{d x} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+a*sin(f*x+e))^(1/2)*(c-c*sin(f*x+e))^(1/2)/sin(f*x+e),x, algorithm="maxima")

[Out]

integrate(sqrt(a*sin(f*x + e) + a)*sqrt(-c*sin(f*x + e) + c)/sin(f*x + e), x)

________________________________________________________________________________________

mupad [F]  time = 0.00, size = -1, normalized size = -0.02 \[ \int \frac {\sqrt {a+a\,\sin \left (e+f\,x\right )}\,\sqrt {c-c\,\sin \left (e+f\,x\right )}}{\sin \left (e+f\,x\right )} \,d x \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(((a + a*sin(e + f*x))^(1/2)*(c - c*sin(e + f*x))^(1/2))/sin(e + f*x),x)

[Out]

int(((a + a*sin(e + f*x))^(1/2)*(c - c*sin(e + f*x))^(1/2))/sin(e + f*x), x)

________________________________________________________________________________________

sympy [F]  time = 0.00, size = 0, normalized size = 0.00 \[ \int \frac {\sqrt {a \left (\sin {\left (e + f x \right )} + 1\right )} \sqrt {- c \left (\sin {\left (e + f x \right )} - 1\right )}}{\sin {\left (e + f x \right )}}\, dx \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+a*sin(f*x+e))**(1/2)*(c-c*sin(f*x+e))**(1/2)/sin(f*x+e),x)

[Out]

Integral(sqrt(a*(sin(e + f*x) + 1))*sqrt(-c*(sin(e + f*x) - 1))/sin(e + f*x), x)

________________________________________________________________________________________